scatter3d(Petal.Width~Petal.Length+Sepal.Length|Species, data=iris, fit="linear" 
residuals=TRUE, parallel=FALSE, bg="black", axis.scales=TRUE, grid=TRUE, ellipsoid=FALSE)

Error: unexpected symbol in:
"scatter3d(Petal.Width~Petal.Length+Sepal.Length|Species, data=iris, fit="linear" 
residuals"

cor(iris[1:4])

             Sepal.Length Sepal.Width Petal.Length Petal.Width
Sepal.Length    1.0000000  -0.1175698    0.8717538   0.8179411
Sepal.Width    -0.1175698   1.0000000   -0.4284401  -0.3661259
Petal.Length    0.8717538  -0.4284401    1.0000000   0.9628654
Petal.Width     0.8179411  -0.3661259    0.9628654   1.0000000

LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KYGBge3J9DQpsaWJyYXJ5KFJDb2xvckJyZXdlcikNCg0KZGF0YShWQURlYXRocykNCnBhcihtZnJvdz1jKDIsMykpDQpoaXN0KFZBRGVhdGhzLGJyZWFrcz0xMCwgY29sPWJyZXdlci5wYWwoMywiU2V0MyIpLG1haW49IlNldDMgMyBjb2xvcnMiKQ0KaGlzdChWQURlYXRocyxicmVha3M9MyAsY29sPWJyZXdlci5wYWwoMywiU2V0MiIpLG1haW49IlNldDIgMyBjb2xvcnMiKQ0KaGlzdChWQURlYXRocyxicmVha3M9NywgY29sPWJyZXdlci5wYWwoMywiU2V0MSIpLG1haW49IlNldDEgMyBjb2xvcnMiKQ0KaGlzdChWQURlYXRocywsYnJlYWtzPSAyLCBjb2w9YnJld2VyLnBhbCg4LCJTZXQzIiksbWFpbj0iU2V0MyA4IGNvbG9ycyIpDQpoaXN0KFZBRGVhdGhzLGNvbD1icmV3ZXIucGFsKDgsIkdyZXlzIiksbWFpbj0iR3JleXMgOCBjb2xvcnMiKQ0KaGlzdChWQURlYXRocyxjb2w9YnJld2VyLnBhbCg4LCJHcmVlbnMiKSxtYWluPSJHcmVlbnMgOCBjb2xvcnMiKQ0KYGBgDQoNCiANCg0KYGBge3J9DQpwbG90KEFpclBhc3NlbmdlcnMsdHlwZT0ibCIpICAjU2ltcGxlIExpbmUgUGxvdA0KYGBgDQoNCmBgYHtyfQ0KYmFycGxvdChpcmlzJFBldGFsLkxlbmd0aCkgI0NyZWF0aW5nIHNpbXBsZSBCYXIgR3JhcGgNCg0KYGBgDQoNCmBgYHtyfQ0KYmFycGxvdChpcmlzJFNlcGFsLkxlbmd0aCxjb2wgID0gYnJld2VyLnBhbCgzLCJTZXQxIikpDQoNCmBgYA0KDQpgYGB7cn0NCmJhcnBsb3QodGFibGUoaXJpcyRTcGVjaWVzLGlyaXMkU2VwYWwuTGVuZ3RoKSxjb2wgID0gYnJld2VyLnBhbCgzLCJTZXQxIikpICNTdGFja2VkIFBsb3QNCmBgYA0KDQpgYGB7cn0NCmJveHBsb3QoaXJpcyRQZXRhbC5MZW5ndGh+aXJpcyRTcGVjaWVzKSAjQ3JlYXRpbmcgQm94IFBsb3QgYmV0d2VlbiB0d28gdmFyaWFibGUNCmBgYA0KDQpgYGB7cn0NCmRhdGEoaXJpcykNCnBhcihtZnJvdz1jKDIsMikpDQpib3hwbG90KGlyaXMkU2VwYWwuTGVuZ3RoLGNvbD0icmVkIikNCmJveHBsb3QoaXJpcyRTZXBhbC5MZW5ndGh+aXJpcyRTcGVjaWVzLGNvbD0icmVkIikNCmJveHBsb3QoaXJpcyRTZXBhbC5MZW5ndGh+aXJpcyRTcGVjaWVzLGNvbD1oZWF0LmNvbG9ycygzKSkNCmJveHBsb3QoaXJpcyRTZXBhbC5MZW5ndGh+aXJpcyRTcGVjaWVzLGNvbD10b3BvLmNvbG9ycygzKSkNCmBgYA0KYGBge3J9DQpwbG90KHg9aXJpcyRQZXRhbC5MZW5ndGgpICNTaW1wbGUgU2NhdHRlciBQbG90DQpgYGANCg0KYGBge3J9DQpwbG90KHg9aXJpcyRQZXRhbC5MZW5ndGgseT1pcmlzJFNwZWNpZXMpICNNdWx0aXZhcmlhdGUgU2NhdHRlciBQbG90DQpgYGANCg0KYGBge3J9DQpwbG90KGlyaXMsY29sPWJyZXdlci5wYWwoMywiU2V0MSIpKQ0KYGBgDQoNCmBgYHtyfQ0KcGllKHRhYmxlKGlyaXMkU3BlY2llcykpDQpgYGANCg0KYGBge3J9DQpsaWJyYXJ5KGhleGJpbikNCmE9aGV4YmluKGRpYW1vbmRzJHByaWNlLGRpYW1vbmRzJGNhcmF0LHhiaW5zPTQwKQ0KbGlicmFyeShSQ29sb3JCcmV3ZXIpDQpwbG90KGEpDQpgYGANCmBgYHtyfQ0KbGlicmFyeShSQ29sb3JCcmV3ZXIpDQpyZiA8LSBjb2xvclJhbXBQYWxldHRlKHJldihicmV3ZXIucGFsKDQwLCdTZXQzJykpKQ0KaGV4YmlucGxvdChkaWFtb25kcyRwcmljZX5kaWFtb25kcyRjYXJhdCwgZGF0YT1kaWFtb25kcywgY29scmFtcD1yZikNCmBgYA0KYGBge3J9DQpkYXRhKEhhaXJFeWVDb2xvcikNCiBtb3NhaWNwbG90KEhhaXJFeWVDb2xvcikNCmBgYA0KYGBge3J9DQpoZWF0bWFwKGFzLm1hdHJpeChtdGNhcnMpKQ0KICAgICAgDQpgYGANCmBgYHtyfQ0KaW1hZ2UoYXMubWF0cml4KG10Y2Fyc1syOjddKSkNCmBgYA0KDQoNCg0KYGBge3J9DQpsaWJyYXJ5KG1hZ3JpdHRyKQ0KbGlicmFyeShsZWFmbGV0KQ0KbSA8LSBsZWFmbGV0KCkgJT4lDQphZGRUaWxlcygpICU+JSAgIyBBZGQgZGVmYXVsdCBPcGVuU3RyZWV0TWFwIG1hcCB0aWxlcw0KYWRkTWFya2Vycyhsbmc9ODAuMjI0NiwgbGF0PTEyLjk3OTYsIHBvcHVwPSJUSGUgQmVhdXRpZnVsIEhvdXNlIG9mIFNhdGhpeWEiKQ0KbSAgIyBQcmludCB0aGUgbWFwDQpgYGANCmBgYHtyfQ0KZGF0YShpcmlzLCBwYWNrYWdlPSJkYXRhc2V0cyIpDQpzY2F0dGVyM2QoUGV0YWwuV2lkdGh+UGV0YWwuTGVuZ3RoK1NlcGFsLkxlbmd0aHxTcGVjaWVzLCBkYXRhPWlyaXMsIGZpdD0ibGluZWFyIikgDQoNCg0KYGBgDQoNCmBgYHtyfQ0KYXR0YWNoKGlyaXMpIyAzZCBzY2F0dGVycGxvdCBieSBmYWN0b3IgbGV2ZWwNCmNsb3VkKFNlcGFsLkxlbmd0aH5TZXBhbC5XaWR0aCpQZXRhbC5MZW5ndGh8U3BlY2llcywgbWFpbj0iM0QgU2NhdHRlcnBsb3QgYnkgU3BlY2llcyIpDQoNCmBgYA0KDQpgYGB7cn0NCnh5cGxvdChTZXBhbC5XaWR0aCB+IFNlcGFsLkxlbmd0aCwgaXJpcywgZ3JvdXBzID0gaXJpcyRTcGVjaWVzLCBwY2g9IDIwKQ0KYGBgDQpgYGB7cn0NCmNvcihpcmlzWzE6NF0pDQogDQpgYGANCg0KYGBge3J9DQogY29ycmdyYW0oaXJpcykNCmBgYA0KDQo=