<p dir="ltr">Replace</p>
<p dir="ltr">temp <- strsplit(vec,NULL)</p>
<p dir="ltr">By</p>
<p dir="ltr">temp <- lapply(strsplit(vec,NULL), as.integer) </p>