{"cells":[{"metadata":{"_uuid":"051d70d956493feee0c6d64651c6a088724dca2a","_execution_state":"idle","trusted":true},"cell_type":"code","source":"library(data.table)\nlibrary(mgcv)\nlibrary(reshape)\n","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"train=fread('../input/osic-pulmonary-fibrosis-progression/train.csv')\ntest=fread('../input/osic-pulmonary-fibrosis-progression/test.csv')\nsubmi=fread('../input/osic-pulmonary-fibrosis-progression/sample_submission.csv')\n\nmodelo = gam(FVC ~  Patient + (Sex + SmokingStatus)^2 +  te(Weeks, Age), data=train)","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"subSplit = colsplit(submi$Patient_Week, \"_\", c(\"Patient\", \"Weeks\"))\n\nindi=match(subSplit$Patient,test$Patient)\n\nsubSplit$Age=test$Age[indi]\nsubSplit$Percent=test$Percent[indi]\nsubSplit$Sex=test$Sex[indi]\nsubSplit$SmokingStatus=test$SmokingStatus[indi]\n\nPPP=predict(modelo, type=\"response\", subSplit, se.fit = T)\n\nsubmi$FVC=PPP$fit\nsubmi$Confidence=PPP$se.fit\n\nreadr::write_csv(submi, \"submission.csv\")","execution_count":null,"outputs":[]}],"metadata":{"kernelspec":{"name":"ir","display_name":"R","language":"R"},"language_info":{"name":"R","codemirror_mode":"r","pygments_lexer":"r","mimetype":"text/x-r-source","file_extension":".r","version":"3.6.3"}},"nbformat":4,"nbformat_minor":4}