solved some problems with R code model