R Scripts/structural.R


1
2
3
4
5
6
7

# structural = function(delta,lmbda,w1,w2,w3){
#   return (delta/(1. + 1./(w1*lmbda) + 1./(w2*lmbda) + 1./(w3*lmbda)))
# }

structural = function(alpha,dist){
  return (alpha * (dist^(-2)))
}