Dear RGroup
I have a requirement for which I am seeking help.
I am looking at automating the last column calculation through R when 
having the data of the other columns as a dataframe, In excel I can do 
using the formula function as given below, however, hereagain for the 
number of observations that come under control, I need to write the 
formula seperately for each cell and then I can block copy and paste to 
the rest of the data cells, however this can get tedious if there is too 
many observations.


Treatment
Candidate
Rep
L
a
b
Delta EcalculatedovercorrespondingcandidateandreplicateofControl
Control
1
1
23
3
2
=SQRT((D2-$D$2)*(D2-$D$2)+(E2-$E$2)*(E2-$E$2)+(F2-$F$2)*(F2-$F$2))
Control
1
2
25
2
1
=SQRT((D3-$D$3)*(D3-$D$3)+(E3-$E$3)*(E3-$E$3)+(F3-$F$3)*(F3-$F$3))
Control
2
1
27
1
3
=SQRT((D4-$D$4)*(D4-$D$4)+(E4-$E$4)*(E4-$E$4)+(F4-$F$4)*(F4-$F$4))
Control
2
2
29
3
1
=SQRT((D5-$D$5)*(D5-$D$5)+(E5-$E$5)*(E5-$E$5)+(F5-$F$5)*(F5-$F$5))
Treatment
1
1
25
2
2
=SQRT((D6-$D$2)*(D6-$D$2)+(E6-$E$2)*(E6-$E$2)+(F6-$F$2)*(F6-$F$2))
Treatment
1
2
27
3
5
=SQRT((D7-$D$3)*(D7-$D$3)+(E7-$E$3)*(E7-$E$3)+(F7-$F$3)*(F7-$F$3))
Treatment
2
1
29
2
2
=SQRT((D8-$D$4)*(D8-$D$4)+(E8-$E$4)*(E8-$E$4)+(F8-$F$4)*(F8-$F$4))
Treatment
2
2
30
3
2
=SQRT((D9-$D$5)*(D9-$D$5)+(E9-$E$5)*(E9-$E$5)+(F9-$F$5)*(F9-$F$5))
Treatment2
1
1
32
2
3
=SQRT((D10-$D$2)*(D10-$D$2)+(E10-$E$2)*(E10-$E$2)+(F10-$F$2)*(F10-$F$2))
Treatment2
1
2
35
1
3
=SQRT((D11-$D$3)*(D11-$D$3)+(E11-$E$3)*(E11-$E$3)+(F11-$F$3)*(F11-$F$3))
Treatment2
2
1
34
2
3
=SQRT((D12-$D$4)*(D12-$D$4)+(E12-$E$4)*(E12-$E$4)+(F12-$F$4)*(F12-$F$4))
Treatment2
2
2
28
2
1
=SQRT((D13-$D$5)*(D13-$D$5)+(E13-$E$5)*(E13-$E$5)+(F13-$F$5)*(F13-$F$5))


The result of the above formula call will give results in excel as below:


Treatment
Candidate
Rep
L
a
b
Delta EcalculatedovercorrespondingcandidateandreplicateofControl
Control
1
1
23
3
2
0
Control
1
2
25
2
1
0
Control
2
1
27
1
3
0
Control
2
2
29
3
1
0
Treatment
1
1
25
2
2
2.236067977
Treatment
1
2
27
3
5
4.582575695
Treatment
2
1
29
2
2
2.449489743
Treatment
2
2
30
3
2
1.414213562
Treatment2
1
1
32
2
3
9.110433579
Treatment2
1
2
35
1
3
10.24695077
Treatment2
2
1
34
2
3
7.071067812
Treatment2
2
2
28
2
1
1.414213562


Can someone help me figure out a way of acheiving this in R using a 
function call for the last column?
 Hope this example helps.


Regards
Vijayan Padmanabhan

Please visit us at www.itcportal.com
******************************************************************************
This Communication is for the exclusive use of the intended recipient (s) and shall
not attach any liability on the originator or ITC Ltd./its Subsidiaries/its Group 
Companies. If you are the addressee, the contents of this email are intended for your use only and it shall not be forwarded to any third party, without first obtaining written authorisation from the originator or ITC Ltd./its Subsidiaries/its Group Companies. It may contain information which is confidential and legally privileged and the same shall not be used or dealt with by any third party in any manner whatsoever without the specific consent of ITC Ltd./its Subsidiaries/its Group Companies.
	[[alternative HTML version deleted]]

