Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
-0.0326433382 0.0117006692 -0.0066969042 0.0407013064 -0.0128665773 -0.0778003889 0.0173917427 0.2208242615 -0.1696576949 -0.0125923592 0.0869788752 0.044072034 0.039110383 0.0117006692 -0.0066969042 0.0407013064 -0.0128665773 -0.0326433382 0.0173917427 0.2208242615 -0.1696576949 -0.0125923592 0.0882361169 0.0423550366 0.039110383 0.0117006692 -0.0066969042 0.0407013064 0.044072034 -0.0326433382 0.0173917427 0.2208242615 -0.1696576949 -0.0355066885 -0.0356327003 0.0423550366 0.039110383 0.0117006692 -0.0066969042 0.0882361169 0.044072034 -0.0326433382 0.0173917427 0.2208242615 0.0278273388 0.004227877 -0.0356327003 0.0423550366 0.039110383 0.0117006692 -0.0355066885 0.0882361169 0.044072034 -0.0326433382 0.0173917427 -0.2004308914 0.0210328888 0.004227877 -0.0356327003 0.0423550366 0.039110383 0.0278273388 -0.0355066885 0.0882361169 0.044072034 -0.0326433382 -0.0263424279 -0.031774003 0.0210328888 0.004227877 -0.0356327003 0.0423550366 -0.2004308914 0.0278273388 -0.0355066885 0.0882361169 0.044072034 0.0655051718 -0.0087128947 -0.031774003 0.0210328888 0.004227877 -0.0356327003 -0.0263424279 -0.2004308914 0.0278273388 -0.0355066885 0.0882361169 -0.0709357514 0.002824837 -0.0087128947 -0.031774003 0.0210328888 0.004227877 0.0655051718 -0.0263424279 -0.2004308914 0.0278273388 -0.0355066885 -0.012918559 -0.0557280984 0.002824837 -0.0087128947 -0.031774003 0.0210328888 -0.0709357514 0.0655051718 -0.0263424279 -0.2004308914 0.0278273388 0.118395754 0.0055542597 -0.0557280984 0.002824837 -0.0087128947 -0.031774003 -0.012918559 -0.0709357514 0.0655051718 -0.0263424279 -0.2004308914 -0.0330932173 -0.0191827335 0.0055542597 -0.0557280984 0.002824837 -0.0087128947 0.118395754 -0.012918559 -0.0709357514 0.0655051718 -0.0263424279 -0.0860908693 0.0178831699 -0.0191827335 0.0055542597 -0.0557280984 0.002824837 -0.0330932173 0.118395754 -0.012918559 -0.0709357514 0.0655051718 0.0210698391 0.0242256595 0.0178831699 -0.0191827335 0.0055542597 -0.0557280984 -0.0860908693 -0.0330932173 0.118395754 -0.012918559 -0.0709357514 0.01494567 -0.0077139884 0.0242256595 0.0178831699 -0.0191827335 0.0055542597 0.0210698391 -0.0860908693 -0.0330932173 0.118395754 -0.012918559 -0.190034757 -0.1049561212 -0.0077139884 0.0242256595 0.0178831699 -0.0191827335 0.01494567 0.0210698391 -0.0860908693 -0.0330932173 0.118395754 -0.1242436027 0.0141937203 -0.1049561212 -0.0077139884 0.0242256595 0.0178831699 -0.190034757 0.01494567 0.0210698391 -0.0860908693 -0.0330932173 0.0062305498 0.0068509697 0.0141937203 -0.1049561212 -0.0077139884 0.0242256595 -0.1242436027 -0.190034757 0.01494567 0.0210698391 -0.0860908693 0.0255507001 -0.0080327478 0.0068509697 0.0141937203 -0.1049561212 -0.0077139884 0.0062305498 -0.1242436027 -0.190034757 0.01494567 0.0210698391 0.0268806628 0.030501844 -0.0080327478 0.0068509697 0.0141937203 -0.1049561212 0.0255507001 0.0062305498 -0.1242436027 -0.190034757 0.01494567 0.1773155966 0.0093778186 0.030501844 -0.0080327478 0.0068509697 0.0141937203 0.0268806628 0.0255507001 0.0062305498 -0.1242436027 -0.190034757 0.0660542373 -0.0037142618 0.0093778186 0.030501844 -0.0080327478 0.0068509697 0.1773155966 0.0268806628 0.0255507001 0.0062305498 -0.1242436027 -0.0139591255 0.027401938 -0.0037142618 0.0093778186 0.030501844 -0.0080327478 0.0660542373 0.1773155966 0.0268806628 0.0255507001 0.0062305498 -0.0373949697 -0.0043734576 0.027401938 -0.0037142618 0.0093778186 0.030501844 -0.0139591255 0.0660542373 0.1773155966 0.0268806628 0.0255507001 0.0366137196 -0.0912540183 -0.0043734576 0.027401938 -0.0037142618 0.0093778186 -0.0373949697 -0.0139591255 0.0660542373 0.1773155966 0.0268806628 0.019350449 -0.1030898071 -0.0912540183 -0.0043734576 0.027401938 -0.0037142618 0.0366137196 -0.0373949697 -0.0139591255 0.0660542373 0.1773155966 0.0837801497 -0.0398421697 -0.1030898071 -0.0912540183 -0.0043734576 0.027401938 0.019350449 0.0366137196 -0.0373949697 -0.0139591255 0.0660542373 -0.0369814175 -0.0697074286 -0.0398421697 -0.1030898071 -0.0912540183 -0.0043734576 0.0837801497 0.019350449 0.0366137196 -0.0373949697 -0.0139591255 -0.111311701 -0.0625818828 -0.0697074286 -0.0398421697 -0.1030898071 -0.0912540183 -0.0369814175 0.0837801497 0.019350449 0.0366137196 -0.0373949697 0.1156912701 0.0509892012 -0.0625818828 -0.0697074286 -0.0398421697 -0.1030898071 -0.111311701 -0.0369814175 0.0837801497 0.019350449 0.0366137196 0.0961044085 -0.0231002229 0.0509892012 -0.0625818828 -0.0697074286 -0.0398421697 0.1156912701 -0.111311701 -0.0369814175 0.0837801497 0.019350449 0.0671607829 -0.0246373612 -0.0231002229 0.0509892012 -0.0625818828 -0.0697074286 0.0961044085 0.1156912701 -0.111311701 -0.0369814175 0.0837801497 -0.0791409595 -0.0975316602 -0.0246373612 -0.0231002229 0.0509892012 -0.0625818828 0.0671607829 0.0961044085 0.1156912701 -0.111311701 -0.0369814175 -0.1831923744 -0.0768647776 -0.0975316602 -0.0246373612 -0.0231002229 0.0509892012 -0.0791409595 0.0671607829 0.0961044085 0.1156912701 -0.111311701 0.0242315729 0.1143873773 -0.0768647776 -0.0975316602 -0.0246373612 -0.0231002229 -0.1831923744 -0.0791409595 0.0671607829 0.0961044085 0.1156912701 0.0682600023 0.0411452724 0.1143873773 -0.0768647776 -0.0975316602 -0.0246373612 0.0242315729 -0.1831923744 -0.0791409595 0.0671607829 0.0961044085 0.0345855796 0.0254477441 0.0411452724 0.1143873773 -0.0768647776 -0.0975316602 0.0682600023 0.0242315729 -0.1831923744 -0.0791409595 0.0671607829 0.0463590447 0.0050543847 0.0254477441 0.0411452724 0.1143873773 -0.0768647776 0.0345855796 0.0682600023 0.0242315729 -0.1831923744 -0.0791409595 -0.0931151599 0.0455597382 0.0050543847 0.0254477441 0.0411452724 0.1143873773 0.0463590447 0.0345855796 0.0682600023 0.0242315729 -0.1831923744 0.0760673553 0.0154375384 0.0455597382 0.0050543847 0.0254477441 0.0411452724 -0.0931151599 0.0463590447 0.0345855796 0.0682600023 0.0242315729 -0.0110651198 0.0130033438 0.0154375384 0.0455597382 0.0050543847 0.0254477441 0.0760673553 -0.0931151599 0.0463590447 0.0345855796 0.0682600023 0.0284509336 0.0249952483 0.0130033438 0.0154375384 0.0455597382 0.0050543847 -0.0110651198 0.0760673553 -0.0931151599 0.0463590447 0.0345855796 0.0368261882 0.0101389935 0.0249952483 0.0130033438 0.0154375384 0.0455597382 0.0284509336 -0.0110651198 0.0760673553 -0.0931151599 0.0463590447 -0.0058804482 0.0676372059 0.0101389935 0.0249952483 0.0130033438 0.0154375384 0.0368261882 0.0284509336 -0.0110651198 0.0760673553 -0.0931151599 0.0680750192 0.0374979484 0.0676372059 0.0101389935 0.0249952483 0.0130033438 -0.0058804482 0.0368261882 0.0284509336 -0.0110651198 0.0760673553 0.0157914001 -0.0130382202 0.0374979484 0.0676372059 0.0101389935 0.0249952483 0.0680750192 -0.0058804482 0.0368261882 0.0284509336 -0.0110651198 0.1121766425 0.026292883 -0.0130382202 0.0374979484 0.0676372059 0.0101389935 0.0157914001 0.0680750192 -0.0058804482 0.0368261882 0.0284509336 -0.0437664455 -0.0267247551 0.026292883 -0.0130382202 0.0374979484 0.0676372059 0.1121766425 0.0157914001 0.0680750192 -0.0058804482 0.0368261882 0.060326653 0.0193415624 -0.0267247551 0.026292883 -0.0130382202 0.0374979484 -0.0437664455 0.1121766425 0.0157914001 0.0680750192 -0.0058804482 0.1028673441 -0.0026801738 0.0193415624 -0.0267247551 0.026292883 -0.0130382202 0.060326653 -0.0437664455 0.1121766425 0.0157914001 0.0680750192 0.0259509727 0.0201345691 -0.0026801738 0.0193415624 -0.0267247551 0.026292883 0.1028673441 0.060326653 -0.0437664455 0.1121766425 0.0157914001 0.1348695746 0.0574866436 0.0201345691 -0.0026801738 0.0193415624 -0.0267247551 0.0259509727 0.1028673441 0.060326653 -0.0437664455 0.1121766425 -0.096715318 0.0411430751 0.0574866436 0.0201345691 -0.0026801738 0.0193415624 0.1348695746 0.0259509727 0.1028673441 0.060326653 -0.0437664455 -0.1035936648 0.033006744 0.0411430751 0.0574866436 0.0201345691 -0.0026801738 -0.096715318 0.1348695746 0.0259509727 0.1028673441 0.060326653 0.0950389075 0.0250138243 0.033006744 0.0411430751 0.0574866436 0.0201345691 -0.1035936648 -0.096715318 0.1348695746 0.0259509727 0.1028673441 0.0359719068 0.0204672679 0.0250138243 0.033006744 0.0411430751 0.0574866436 0.0950389075 -0.1035936648 -0.096715318 0.1348695746 0.0259509727 0.1520609453 0.0325739777 0.0204672679 0.0250138243 0.033006744 0.0411430751 0.0359719068 0.0950389075 -0.1035936648 -0.096715318 0.1348695746 -0.0022505636 0.0082886619 0.0325739777 0.0204672679 0.0250138243 0.033006744 0.1520609453 0.0359719068 0.0950389075 -0.1035936648 -0.096715318 -0.0277954311 0.0042052706 0.0082886619 0.0325739777 0.0204672679 0.0250138243 -0.0022505636 0.1520609453 0.0359719068 0.0950389075 -0.1035936648 0.0653827593 -0.0187852276 0.0042052706 0.0082886619 0.0325739777 0.0204672679 -0.0277954311 -0.0022505636 0.1520609453 0.0359719068 0.0950389075 0.0443888626 0.0117073969 -0.0187852276 0.0042052706 0.0082886619 0.0325739777 0.0653827593 -0.0277954311 -0.0022505636 0.1520609453 0.0359719068 0.1010961169 0.0205727019 0.0117073969 -0.0187852276 0.0042052706 0.0082886619 0.0443888626 0.0653827593 -0.0277954311 -0.0022505636 0.1520609453 -0.0029750276 0.0297489553 0.0205727019 0.0117073969 -0.0187852276 0.0042052706 0.1010961169 0.0443888626 0.0653827593 -0.0277954311 -0.0022505636 -0.0752062699 0.0060757712 0.0297489553 0.0205727019 0.0117073969 -0.0187852276 -0.0029750276 0.1010961169 0.0443888626 0.0653827593 -0.0277954311 -0.0525843352 0.0055718588 0.0060757712 0.0297489553 0.0205727019 0.0117073969 -0.0752062699 -0.0029750276 0.1010961169 0.0443888626 0.0653827593 0.0229004195 0.0206244894 0.0055718588 0.0060757712 0.0297489553 0.0205727019 -0.0525843352 -0.0752062699 -0.0029750276 0.1010961169 0.0443888626 0.1009621422 0.0379680959 0.0206244894 0.0055718588 0.0060757712 0.0297489553 0.0229004195 -0.0525843352 -0.0752062699 -0.0029750276 0.1010961169 -0.0289088246 0.0482862048 0.0379680959 0.0206244894 0.0055718588 0.0060757712 0.1009621422 0.0229004195 -0.0525843352 -0.0752062699 -0.0029750276 0.0208474516 0.0390499463 0.0482862048 0.0379680959 0.0206244894 0.0055718588 -0.0289088246 0.1009621422 0.0229004195 -0.0525843352 -0.0752062699 0.0788578228 0.0271390938 0.0390499463 0.0482862048 0.0379680959 0.0206244894 0.0208474516 -0.0289088246 0.1009621422 0.0229004195 -0.0525843352 0.0549314322 -0.0057465023 0.0271390938 0.0390499463 0.0482862048 0.0379680959 0.0788578228 0.0208474516 -0.0289088246 0.1009621422 0.0229004195 -0.0321652782 -0.0245446326 -0.0057465023 0.0271390938 0.0390499463 0.0482862048 0.0549314322 0.0788578228 0.0208474516 -0.0289088246 0.1009621422 0.0646729207 -0.0626807665 -0.0245446326 -0.0057465023 0.0271390938 0.0390499463 -0.0321652782 0.0549314322 0.0788578228 0.0208474516 -0.0289088246 -0.0010757027 0.0361686515 -0.0626807665 -0.0245446326 -0.0057465023 0.0271390938 0.0646729207 -0.0321652782 0.0549314322 0.0788578228 0.0208474516 -0.1458885691 0.0424872334 0.0361686515 -0.0626807665 -0.0245446326 -0.0057465023 -0.0010757027 0.0646729207 -0.0321652782 0.0549314322 0.0788578228 -0.0677816324 0.0275361898 0.0424872334 0.0361686515 -0.0626807665 -0.0245446326 -0.1458885691 -0.0010757027 0.0646729207 -0.0321652782 0.0549314322 -0.0098770369 0.0415469527 0.0275361898 0.0424872334 0.0361686515 -0.0626807665 -0.0677816324 -0.1458885691 -0.0010757027 0.0646729207 -0.0321652782 0.0501991563 0.0146867637 0.0415469527 0.0275361898 0.0424872334 0.0361686515 -0.0098770369 -0.0677816324 -0.1458885691 -0.0010757027 0.0646729207 -0.1271063631 0.0214691709 0.0146867637 0.0415469527 0.0275361898 0.0424872334 0.0501991563 -0.0098770369 -0.0677816324 -0.1458885691 -0.0010757027 0.0582277708 0.0350404489 0.0214691709 0.0146867637 0.0415469527 0.0275361898 -0.1271063631 0.0501991563 -0.0098770369 -0.0677816324 -0.1458885691 0.0595552648 0.0131292719 0.0350404489 0.0214691709 0.0146867637 0.0415469527 0.0582277708 -0.1271063631 0.0501991563 -0.0098770369 -0.0677816324 0.0885041253 -0.0328847346 0.0131292719 0.0350404489 0.0214691709 0.0146867637 0.0595552648 0.0582277708 -0.1271063631 0.0501991563 -0.0098770369 0.0004433607 0.0523775174 -0.0328847346 0.0131292719 0.0350404489 0.0214691709 0.0885041253 0.0595552648 0.0582277708 -0.1271063631 0.0501991563 0.0379810835 0.0227588167 0.0523775174 -0.0328847346 0.0131292719 0.0350404489 0.0004433607 0.0885041253 0.0595552648 0.0582277708 -0.1271063631 0.0681769863 -0.0162178014 0.0227588167 0.0523775174 -0.0328847346 0.0131292719 0.0379810835 0.0004433607 0.0885041253 0.0595552648 0.0582277708 -0.0520908486 -0.0127524528 -0.0162178014 0.0227588167 0.0523775174 -0.0328847346 0.0681769863 0.0379810835 0.0004433607 0.0885041253 0.0595552648 0.0666010623 -0.0822608913 -0.0127524528 -0.0162178014 0.0227588167 0.0523775174 -0.0520908486 0.0681769863 0.0379810835 0.0004433607 0.0885041253 0.0677173945 0.0221140649 -0.0822608913 -0.0127524528 -0.0162178014 0.0227588167 0.0666010623 -0.0520908486 0.0681769863 0.0379810835 0.0004433607 0.1251127483 0.0317810643 0.0221140649 -0.0822608913 -0.0127524528 -0.0162178014 0.0677173945 0.0666010623 -0.0520908486 0.0681769863 0.0379810835 -0.0218349286 -0.0773298837 0.0317810643 0.0221140649 -0.0822608913 -0.0127524528 0.1251127483 0.0677173945 0.0666010623 -0.0520908486 0.0681769863 0.0178312442 0.0027974224 -0.0773298837 0.0317810643 0.0221140649 -0.0822608913 -0.0218349286 0.1251127483 0.0677173945 0.0666010623 -0.0520908486 0.0199663138 -0.0684060589 0.0027974224 -0.0773298837 0.0317810643 0.0221140649 0.0178312442 -0.0218349286 0.1251127483 0.0677173945 0.0666010623 0.088436301 -0.0326538799 -0.0684060589 0.0027974224 -0.0773298837 0.0317810643 0.0199663138 0.0178312442 -0.0218349286 0.1251127483 0.0677173945 0.0646054028 -0.0125972204 -0.0326538799 -0.0684060589 0.0027974224 -0.0773298837 0.088436301 0.0199663138 0.0178312442 -0.0218349286 0.1251127483 0.1233912353 0.048660559 -0.0125972204 -0.0326538799 -0.0684060589 0.0027974224 0.0646054028 0.088436301 0.0199663138 0.0178312442 -0.0218349286 0.0673308704 -0.0147704378 0.048660559 -0.0125972204 -0.0326538799 -0.0684060589 0.1233912353 0.0646054028 0.088436301 0.0199663138 0.0178312442 0.0232412696 -0.0812692141 -0.0147704378 0.048660559 -0.0125972204 -0.0326538799 0.0673308704 0.1233912353 0.0646054028 0.088436301 0.0199663138 -0.1570633927 -0.1445904237 -0.0812692141 -0.0147704378 0.048660559 -0.0125972204 0.0232412696 0.0673308704 0.1233912353 0.0646054028 0.088436301 -0.134923147 0.0047470083 -0.1445904237 -0.0812692141 -0.0147704378 0.048660559 -0.1570633927 0.0232412696 0.0673308704 0.1233912353 0.0646054028 -0.2920959272 -0.0281878491 0.0047470083 -0.1445904237 -0.0812692141 -0.0147704378 -0.134923147 -0.1570633927 0.0232412696 0.0673308704 0.1233912353 -0.3111517877 -0.2985135366 -0.0281878491 0.0047470083 -0.1445904237 -0.0812692141 -0.2920959272 -0.134923147 -0.1570633927 0.0232412696 0.0673308704 -0.2363887781 -0.0871197547 -0.2985135366 -0.0281878491 0.0047470083 -0.1445904237 -0.3111517877 -0.2920959272 -0.134923147 -0.1570633927 0.0232412696 0.0334524402 -0.0782493685 -0.0871197547 -0.2985135366 -0.0281878491 0.0047470083 -0.2363887781 -0.3111517877 -0.2920959272 -0.134923147 -0.1570633927
Names of X columns:
PCYt PCXt1 PCXt2 PCXt3 PCXt4 PCXt5 PCYt1 PCYt2 PCYt3 PCYt4 PCYt5
Endogenous Variable (Column Number)
Categorization
none
none
quantiles
hclust
equal
Number of categories (only if categorization<>none)
Cross-Validation? (only if categorization<>none)
no
no
yes
Chart options
R Code
library(party) library(Hmisc) par1 <- as.numeric(par1) par3 <- as.numeric(par3) x <- data.frame(t(y)) is.data.frame(x) x <- x[!is.na(x[,par1]),] k <- length(x[1,]) n <- length(x[,1]) colnames(x)[par1] x[,par1] if (par2 == 'kmeans') { cl <- kmeans(x[,par1], par3) print(cl) clm <- matrix(cbind(cl$centers,1:par3),ncol=2) clm <- clm[sort.list(clm[,1]),] for (i in 1:par3) { cl$cluster[cl$cluster==clm[i,2]] <- paste('C',i,sep='') } cl$cluster <- as.factor(cl$cluster) print(cl$cluster) x[,par1] <- cl$cluster } if (par2 == 'quantiles') { x[,par1] <- cut2(x[,par1],g=par3) } if (par2 == 'hclust') { hc <- hclust(dist(x[,par1])^2, 'cen') print(hc) memb <- cutree(hc, k = par3) dum <- c(mean(x[memb==1,par1])) for (i in 2:par3) { dum <- c(dum, mean(x[memb==i,par1])) } hcm <- matrix(cbind(dum,1:par3),ncol=2) hcm <- hcm[sort.list(hcm[,1]),] for (i in 1:par3) { memb[memb==hcm[i,2]] <- paste('C',i,sep='') } memb <- as.factor(memb) print(memb) x[,par1] <- memb } if (par2=='equal') { ed <- cut(as.numeric(x[,par1]),par3,labels=paste('C',1:par3,sep='')) x[,par1] <- as.factor(ed) } table(x[,par1]) colnames(x) colnames(x)[par1] x[,par1] if (par2 == 'none') { m <- ctree(as.formula(paste(colnames(x)[par1],' ~ .',sep='')),data = x) } load(file='createtable') if (par2 != 'none') { m <- ctree(as.formula(paste('as.factor(',colnames(x)[par1],') ~ .',sep='')),data = x) if (par4=='yes') { a<-table.start() a<-table.row.start(a) a<-table.element(a,'10-Fold Cross Validation',3+2*par3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'',1,TRUE) a<-table.element(a,'Prediction (training)',par3+1,TRUE) a<-table.element(a,'Prediction (testing)',par3+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Actual',1,TRUE) for (jjj in 1:par3) a<-table.element(a,paste('C',jjj,sep=''),1,TRUE) a<-table.element(a,'CV',1,TRUE) for (jjj in 1:par3) a<-table.element(a,paste('C',jjj,sep=''),1,TRUE) a<-table.element(a,'CV',1,TRUE) a<-table.row.end(a) for (i in 1:10) { ind <- sample(2, nrow(x), replace=T, prob=c(0.9,0.1)) m.ct <- ctree(as.formula(paste('as.factor(',colnames(x)[par1],') ~ .',sep='')),data =x[ind==1,]) if (i==1) { m.ct.i.pred <- predict(m.ct, newdata=x[ind==1,]) m.ct.i.actu <- x[ind==1,par1] m.ct.x.pred <- predict(m.ct, newdata=x[ind==2,]) m.ct.x.actu <- x[ind==2,par1] } else { m.ct.i.pred <- c(m.ct.i.pred,predict(m.ct, newdata=x[ind==1,])) m.ct.i.actu <- c(m.ct.i.actu,x[ind==1,par1]) m.ct.x.pred <- c(m.ct.x.pred,predict(m.ct, newdata=x[ind==2,])) m.ct.x.actu <- c(m.ct.x.actu,x[ind==2,par1]) } } print(m.ct.i.tab <- table(m.ct.i.actu,m.ct.i.pred)) numer <- 0 for (i in 1:par3) { print(m.ct.i.tab[i,i] / sum(m.ct.i.tab[i,])) numer <- numer + m.ct.i.tab[i,i] } print(m.ct.i.cp <- numer / sum(m.ct.i.tab)) print(m.ct.x.tab <- table(m.ct.x.actu,m.ct.x.pred)) numer <- 0 for (i in 1:par3) { print(m.ct.x.tab[i,i] / sum(m.ct.x.tab[i,])) numer <- numer + m.ct.x.tab[i,i] } print(m.ct.x.cp <- numer / sum(m.ct.x.tab)) for (i in 1:par3) { a<-table.row.start(a) a<-table.element(a,paste('C',i,sep=''),1,TRUE) for (jjj in 1:par3) a<-table.element(a,m.ct.i.tab[i,jjj]) a<-table.element(a,round(m.ct.i.tab[i,i]/sum(m.ct.i.tab[i,]),4)) for (jjj in 1:par3) a<-table.element(a,m.ct.x.tab[i,jjj]) a<-table.element(a,round(m.ct.x.tab[i,i]/sum(m.ct.x.tab[i,]),4)) a<-table.row.end(a) } a<-table.row.start(a) a<-table.element(a,'Overall',1,TRUE) for (jjj in 1:par3) a<-table.element(a,'-') a<-table.element(a,round(m.ct.i.cp,4)) for (jjj in 1:par3) a<-table.element(a,'-') a<-table.element(a,round(m.ct.x.cp,4)) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable3.tab') } } m bitmap(file='test1.png') plot(m) dev.off() bitmap(file='test1a.png') plot(x[,par1] ~ as.factor(where(m)),main='Response by Terminal Node',xlab='Terminal Node',ylab='Response') dev.off() if (par2 == 'none') { forec <- predict(m) result <- as.data.frame(cbind(x[,par1],forec,x[,par1]-forec)) colnames(result) <- c('Actuals','Forecasts','Residuals') print(result) } if (par2 != 'none') { print(cbind(as.factor(x[,par1]),predict(m))) myt <- table(as.factor(x[,par1]),predict(m)) print(myt) } bitmap(file='test2.png') if(par2=='none') { op <- par(mfrow=c(2,2)) plot(density(result$Actuals),main='Kernel Density Plot of Actuals') plot(density(result$Residuals),main='Kernel Density Plot of Residuals') plot(result$Forecasts,result$Actuals,main='Actuals versus Predictions',xlab='Predictions',ylab='Actuals') plot(density(result$Forecasts),main='Kernel Density Plot of Predictions') par(op) } if(par2!='none') { plot(myt,main='Confusion Matrix',xlab='Actual',ylab='Predicted') } dev.off() if (par2 == 'none') { detcoef <- cor(result$Forecasts,result$Actuals) a<-table.start() a<-table.row.start(a) a<-table.element(a,'Goodness of Fit',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Correlation',1,TRUE) a<-table.element(a,round(detcoef,4)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'R-squared',1,TRUE) a<-table.element(a,round(detcoef*detcoef,4)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'RMSE',1,TRUE) a<-table.element(a,round(sqrt(mean((result$Residuals)^2)),4)) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable1.tab') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Actuals, Predictions, and Residuals',4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'#',header=TRUE) a<-table.element(a,'Actuals',header=TRUE) a<-table.element(a,'Forecasts',header=TRUE) a<-table.element(a,'Residuals',header=TRUE) a<-table.row.end(a) for (i in 1:length(result$Actuals)) { a<-table.row.start(a) a<-table.element(a,i,header=TRUE) a<-table.element(a,result$Actuals[i]) a<-table.element(a,result$Forecasts[i]) a<-table.element(a,result$Residuals[i]) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab') } if (par2 != 'none') { a<-table.start() a<-table.row.start(a) a<-table.element(a,'Confusion Matrix (predicted in columns / actuals in rows)',par3+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'',1,TRUE) for (i in 1:par3) { a<-table.element(a,paste('C',i,sep=''),1,TRUE) } a<-table.row.end(a) for (i in 1:par3) { a<-table.row.start(a) a<-table.element(a,paste('C',i,sep=''),1,TRUE) for (j in 1:par3) { a<-table.element(a,myt[i,j]) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable2.tab') }
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
2 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation