warnOnlyだと，nlsの返り値がないため，summaryするとエラーが出る． そこでtry関数を使って，とりあえず値があるかチェックしておいて， class( )で内容に"try-error"が含まれていたら，ループを飛ばすなどする． for(j in j1:jn){ y2 <- c[(n+2):j] x2 <- …