Displaying 1 result from an estimated 1 matches for "dp_graph".
Did you mean:
dp_graphs
2011 Mar 14
1
Multiple graphs
...))
output = data.frame(basel_asset_class_id =
c(1,1,1,1,1,1,1,2,2,2,2,2,2,2,3,3,3,3,3,3,3),
internal_scale_id =
c(1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7),
default_probability =
c(10,28,32,44,57,62,78,14,23,38,47,56,65,74,1,9,16,25,36,49,64))
#
# Generation of Graphs
DP_graphs <- function(Data = output, class.var="basel_asset_class_id",
ratings="internal_scale_id", IPD="default_probability")
{
class <- unique(as.character(Data[[class.var]]))[1]
png(filename=sprintf("%s%s%s%s%s", "Curve ", "( ", cla...